subroutine print_init_table(lunit,cunit)
  implicit none
  
  integer,intent(in) :: lunit,cunit

  ! Print initial tables
  call log_msg1(lunit,"")
  call log_msg1(lunit,">>> Initial condition")

  call print_event_profile(lunit)
  call print_event_table(lunit)
  call print_sim_obj(lunit)
  call print_del_event_table(lunit)
  call print_spont_event_table(lunit)

  call log_msg1(lunit,"")
  call log_msg1(lunit,"<<< Initial condition")

  return

end subroutine print_init_table
